home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / newquote.lha / NewQuot.rexx < prev   
OS/2 REXX Batch file  |  1994-04-05  |  507b  |  38 lines

  1. /* NewQoute */
  2. options results
  3.  
  4. path='sysdata:quote.txt';tr='transmit';cr='center'
  5.  
  6. if ~exists(path) then do
  7. tr " c1Can't find quotes!! Please tell SysOp!! c3"
  8. end
  9.  
  10. g = 0
  11. call open(1,path)
  12.  
  13. max=readln(1)
  14. num = random(1,max-1,time(s))
  15. rep:
  16. line = readln(1)
  17. if line = '*' then g = g + 1
  18. if g = num then signal plunt
  19. signal rep
  20.  
  21.  
  22. plunt:
  23. l = 1
  24. print:
  25. quot.l = readln(1)
  26. if quot.l = '*' then signal slemhog
  27. l = l + 1
  28. signal print
  29.  
  30. slemhog:
  31. tr 'c1'
  32. h = l - 1
  33. do i=1 to h
  34. tr center(quot.i,79)
  35. end
  36. tr 'c3'
  37. exit
  38.